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namespace eval ::rapidview::command::rvcmd::buttonbar { 

# Add some buttons 

# The fields are: name, Help Text, tcl function, button text, button 
location addbutton b1 "This is Button 1" "::button_1_function" -text 
"Button 1" -row 0 addbutton b2 "This is Button 2" "::button_2_function" 
-text "Button 2" -row 0 

} 
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proc button *! function {} { 
puts "Button 1 was 

pressed" 
# do some action 

} 



FIG. 10B 



